home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / zcommexe.arc / TUF_FONS.T < prev    next >
Text File  |  1991-08-07  |  13KB  |  240 lines
  1.     Tough Phones 3.02
  2.     RLW mods 16 Mar 91
  3. ::
  4. ::  -= A lean and mean platform for Pro-YAM and ZComm by Bob Willoughby =-
  5. ::
  6. ::    (...leaner and meaner if you decide to eliminate the cribsheet...)
  7. ::
  8. ::
  9. ::  This script is a plain ASCII text file, so you can edit or view it.  It
  10. ::  does require minor editing prior to use.  If that idea gives you the
  11. ::  willies, get started with Michael Ash's excellent PHOMAST.T script and
  12. ::  come back to Tough Phones for other ideas later.  Please go to the bottom
  13. ::  of this file for additional remarks.
  14. ::
  15. ::  Note:  To use this 'tuf_fons.t' script be sure to include the DOS command
  16. ::  'set phones=[path]\tuf_fons.t' in your autoexec.bat file to tell YAM or
  17. ::  ZComm where to find the script.  I actively use both YAM and ZComm, so I
  18. ::  put YAM into c:\yam and ZComm into c:\zcomm; and, I use a subdirectory
  19. ::  called \tmp in both of those directories which are used to store the log
  20. ::  files that I have YAM and ZComm maintain.
  21. ::  
  22. ::  Don't be concerned with menu and function key differences between
  23. ::  tuf_fons.t and phomast.t when you run them -- they differ because Mike
  24. ::  and I have different approaches to telecommunications.  That is an
  25. ::  important point - Pro-YAM and ZComm let you assign your function keys to
  26. ::  do whatever you want them to do, and it is surprisingly easy.  So, one
  27. ::  of the reasons this small script is tossed into the pot is to provide
  28. ::  additional examples of script writing which you can plagiarize.
  29. ::
  30. ::  A comment about comments -- after you understand this script, all lines
  31. ::  that begin with a double colon "::" may be deleted to save space and
  32. ::  speed things up (...faster load time and less sifting for Pro-YAM or
  33. ::  ZComm to do).  Also, you can scrub the cribsheet menu when you no longer
  34. ::  need that sort of quick reference crutch.  Then you can use the F3 key
  35. ::  for some other purpose.
  36. ::
  37. ::  "Commenting out" a line is simply placing a colon at the beginning of the
  38. ::  line so the comm program will not "read" that line in the script and do
  39. ::  what it says to do.  "Uncommenting" a line is just the opposite - it
  40. ::  involves deleting the colon at the beginning of the line so the script
  41. ::  can read the command(s) on that line and use them to run the program.
  42. ::
  43. ::  Well, lets get on with the actual script that does the work...
  44.  
  45. setup   port 1          :for COM1
  46.         : port 2        :for COM2
  47.         ena -d          :suppress the Carrier Lost msg during setup
  48.         pv-1            :Verbose OFF (-1 shows none; 50 shows all)
  49.         pa10000         :works fine with a 386SX at 16mhz
  50.  
  51. set:    putw "ATE0X1V1 S7=20 S11=55 S0=0\r"    :a typical modem setup string
  52.         
  53.         : putw "ATZ0\r"                :set Hayes 2400b stored config profile 0
  54.         : putw "AT E1 M1 S9=07 S10=15 S11=55 S25=5\r"    :Hayes 2400b parms, RLW
  55.         : putw "AT L0 V1 X4\r"             :set Hayes 2400 external modem, RLW
  56.         : putw "AT V1\r"                   :set Hayes 1200 external modem, RLW
  57.  
  58.         pd1                     : turn on time stamping
  59.         pi40                    : set redial for 40 seconds
  60.         set mprefix ATDT        : Tone Dial
  61.         : set mprefix ATDT1170, : Tone Dial plus call wait defeat, San Antonio
  62.         set l "1"; set m "1"
  63.         set quitcmd \003\336off\r       :press Alt-Q to set up auto log off
  64.                                         :when a long file xfr is finished
  65.  
  66.     ::  Note:  I like the following color setup with EGA/VGA color monitors,
  67.     ::         so I just uncomment the color setup and the display warpdrive
  68.     ::         lines below as well as comment out the monochrome line when
  69.     ::         I use a VGA monitor.  I reverse the foregoing procedure when I
  70.     ::         use a gas plasma screen.
  71.  
  72.         : if dc p*15 p@79 pn31 pr30 pu15 ps14       :color setup
  73.         : display warpdrive               :if CGA monitor, leave this line
  74.                                           :commented out
  75.  
  76.         if dc pn7 pr112 pu15 ps7 p*7 p@7       :for monochrome monitor
  77.  
  78.         set disks "abcdefghijk"
  79.  
  80.     ::  If you decide to rename your phones files use the example DOS
  81.     ::  commands below to tell YAM or ZComm where to find them...
  82.     ::    
  83.     ::                    set phones=c:\yam\phones.t
  84.     ::               or   set phones=c:\zcomm\phodir.t
  85.     ::
  86.     ::  Defining the DOS environment variable is the most flexible method
  87.     ::  to use, because that provides relative pathing to test other scripts.
  88.     ::  In YAM and registered copies of ZComm you can define the location and
  89.     ::  names of your scripts when you install the serial number password.
  90.  
  91.         display bell=visual    :Comment this line out if you like to be nagged!
  92.                                :: (commenting out line above turns on the beep)
  93.  
  94.         echo "Resetting Function Keys"; reskeys
  95.  
  96.         set f3 "@gosub qref"            ::Call Quick Reference Screen
  97.         set f4 "@kermit rb"             ::receive Super Kermit download
  98.         set f5 "@accept s1 Send_ASCII_Msg: f -p %s1"
  99.         set f6 "@accept s2 Send_Z: sz -Z /yam/%s2" :send file in /yam dir
  100.                   : above line for use w/YAM - Comment it out if using ZComm
  101.         : set f6 "@accept s2 Send_Z: sz -Z /zcomm/%s2" :send file in /zcomm dir
  102.                   : Uncomment above line if using ZComm
  103.         set f7 "@accept s3 Receive_CRCX: rc %s3"
  104.         set f8 "@accept s4 Send_CRCX: sx %s4"
  105.         set f9 "@keys"                   ::display func key assignments
  106.         set helpfile "@!yhp \yam\umanh.hlp main"; set f10 "@help"
  107.                   : above line for use w/YAM - Comment it out if using ZComm
  108.         : set helpfile "@!yhp \zcomm\zmanh.hlp zmain"; set f10 "@help"
  109.                   : Uncomment above line if using ZComm
  110.         set fa5 "@kill; call -40 omen24"
  111.         set fa6 "@kill; call -40 buerg_1"
  112.         set fa7 "@kill; call -40 mb_1"
  113.         set fa8 "@kill; call -40 mb_2"
  114.         set fa9 "@kill; call -40 stump24"
  115.         set fa10 "@kill; call -40 olde24"
  116.  
  117.         set calllog /yam/tmp/calllog  :Comment out this line if using ZComm
  118.         set rxlog /yam/tmp/rxlog      :Comment out this line if using ZComm
  119.         set txlog /yam/tmp/txlog      :Comment out this line if using ZComm
  120.         set tmp /yam/tmp              :Comment out this line if using ZComm
  121.         : set calllog /zcomm/tmp/calllog  :Uncomment this line if using ZComm
  122.         : set rxlog /zcomm/tmp/rxlog      :Uncomment this line if using ZComm
  123.         : set txlog /zcomm/tmp/txlog      :Uncomment this line if using ZComm
  124.         : set tmp /zcomm/tmp              :Uncomment this line if using ZComm
  125.  
  126.         set adlopts rm     : makes Zmodem AutoDownload xfrs use the "r"
  127.                            : (resume/Crash Recovery) option along with
  128.                            : MobyTurbo mode of Zmodem.
  129.  
  130. ::            This is an opening msg re the quick reference cribsheet.
  131. ::            Comment out the next six lines to skip the opening msg.
  132.  echo ""
  133.  echo ""
  134.  echo "                    Press F3 for Quick Reference                       "
  135.  echo ""
  136.  echo ""
  137.  return
  138.  
  139. qref  cls      :subroutine for quick reference "cribsheet" screen
  140.  echo "                                                                       "
  141.  echo "                   Bob's Pro-YAM/ZComm Cribsheet                       "
  142.  echo "                                                                       "
  143.  echo "F1  Exit Circular Buffer            F2  Enter Circular Buffer          "
  144.  echo "F3  This Cribsheet                  F4  Receive Kermit Download        "
  145.  echo "F5  Send ASCII Text                 F6  Send Zmodem Upload             "
  146.  echo "F7  Receive CrcXmodem Download      F8  Send CrcXmodem Upload          "
  147.  echo "F9  Show All Key Assignments        F10  Flashup Help Processor        "
  148.  echo "Alt-1  Get DOS Command prompt       Alt-2  Get YAM Command prompt      "
  149.  echo "                                                                       "
  150.  echo "                                                                       "
  151.  echo "              Most Often Called Bulletin Board Systems                 "
  152.  echo "                   [Assigned to Alt_Function Keys]                     "
  153.  echo "                                                                       "
  154.  echo "aF5  Telegodzilla..Chuck Forsberg   aF6  VOR BBS          ...Vern Buerg"
  155.  echo "aF7  Motherboard #1 ..Julie Buerg   aF8  Motherboard #2  ...Julie Buerg"
  156.  echo "aF9  Commando Spt  ...Shane Stump   aF10  Olde Guard    ...Dick Fochler"
  157.  echo "                                                                       "
  158.  echo "                                                                       "
  159.  echo ""
  160.   return
  161.  
  162. ::
  163. ::                  --- PHONE DIRECTORY ENTRIES ---
  164. ::
  165. omen24          speed 2400  %l-503-621-3746 ena -E;t -8g :Omen Technology
  166. omen12          speed 1200  %l-503-621-3746 ena -E;t -8g : (Telegodzilla)
  167. : omen-voice    %l-503-621-3406\;
  168. olde24      speed 2400  1-512-684-4470 ena -E;t -8g  :Olde Guard
  169. olde12      speed 1200  1-512-684-4470 ena -E;t -8g  :Olde Guard
  170. buerg_1         speed 2400  1-707-778-8944 ena -E;t -8g  :VOR BBS, public
  171. buerg_112       speed 1200  1-707-778-8944 ena -E;t -8g  :VOR BBS, public
  172. mb_1            speed 2400  1-707-778-8841 ena -E;t -8g  :Motherboard node 1
  173. mb_2            speed 2400  1-707-778-8743 ena -E;t -8g  :Motherboard node 2
  174. mb_112          speed 1200  1-707-778-8841 ena -E;t -8g
  175. mb_212          speed 1200  1-707-778-8743 ena -E;t -8g
  176. stump24         speed 2400  1-512-670-0954 ena -E;t -8g
  177. stump12         speed 1200  1-512-670-0954 ena -E;t -8g
  178. blacher24       speed 2400  1-202-547-2008 ena -E;t -8g  :Robert Blacher
  179. blacher12       speed 1200  1-202-547-2008 ena -E;t -8g
  180. ::
  181. ::                  -= END OF PHONE DIRECTORY =-
  182.  
  183. ::
  184. ::  Some remarks about my Tough Phones Script follow:
  185. ::
  186. ::  I use a pared down version of Tough Phones every day that is a big,
  187. ::  bad 100 or so lines and about 5,200 bytes long (I modify it all the
  188. ::  time, so the size varies a little).  Thats it -- all of it, the whole
  189. ::  enchilada!  It dispenses with the memory kicker Cheatsheet menu included
  190. ::  with this script, all commenting was eliminated, and I even sent this
  191. ::  philosophical remarks section (timeless prose though it is) to the
  192. ::  big bit bin in the sky.  All that remains in my little script is the
  193. ::  setup section, a few function key assignments, and my phone directory --
  194. ::  it does not call any external subroutine scripts and like this Tough
  195. ::  Phones Script, it has no automated features.  And, it is FAST!!
  196. ::
  197. ::  Incidentally, I would use automated logon subroutines if I had accounts
  198. ::  with CompuServe or the other timesharing outfits.
  199. ::
  200. ::  I have examined and written Pro-YAM and ZComm scripts for several
  201. ::  years and I finally decided that all I really want a script to do is
  202. ::  to fire up YAM with a few basic parameters and a phone directory.
  203. ::  Then I just light YAM's afterburners and take manual control with
  204. ::  YAM's rich command set.  I get a lot of enjoyment out of direct
  205. ::  interaction with YAM and ZComm because they are marvelously flexible --
  206. ::  I don't need or crave any more than that.  So my trimmed down version
  207. ::  of this Tough Phones Script serves my individual needs quite well.  Yes,
  208. ::  it is a Spartan approach to telecommunications, but that is the way I
  209. ::  like it.  If you want a little bedrock to use as a starting point for
  210. ::  your more sophisticated script routines, be my guest.  That is why
  211. ::  I am making Tough Phones available.
  212. ::
  213. ::  Please understand that Tough Phones is a purely personal working script
  214. ::   -- it was not designed to teach script writing or to "cover all the
  215. ::  bases" for beginners.  If you want to kickstart YAM or ZComm and burn
  216. ::  rubber right out of the blocks, you need to get things up and running
  217. ::  with Michael Ash's excellent PHOMAST.T script which is distributed
  218. ::  with Pro-YAM and ZComm or available separately as PHOMAST6.ZIP.
  219. ::
  220. ::  Writing scripts is a lot of fun and it is very satisfying.  Many examples
  221. ::  are available in SCRIPTS.ZOO which you can download from Chuck Forsberg's
  222. ::  Telegodzilla - it is in the /scripts subdirectory.
  223. ::
  224. ::  For more information, I strongly urge you to bite the bullet -- study
  225. ::  the Professional YAM manual that is furnished when you register either
  226. ::  Pro-YAM or ZComm.  Or at least read the shareware ZCOMMDOC.ZIP file
  227. ::  <..gasp..>!  You have to come to grips with the manual if you really
  228. ::  want to get the maximum benefit and power out of Pro-YAM or ZComm.  Yeah,
  229. ::  thats right...  you *know* deep down inside that is what you have to do.
  230. ::
  231. ::  In addition, you might want to subscribe to the Olde Guard (512-654-7817),
  232. ::  a bulletin board system in San Antonio, Texas that is a hangout for
  233. ::  several skillful Pro-YAM and ZComm users who enjoy swapping YAM yummies,
  234. ::  helping each other solve problems, and telling tall tales about tele-
  235. ::  communications ...<grin>.  Have a good day...
  236. ::
  237. ::                                  ...Bob
  238. ::
  239. ::++++++++++++++++++++++++++++ Thats All Folks! ++++++++++++++++++++++++++++::
  240.